add_codes_adm_MS_wrapper<-function(years){
  setwd(wd_code)
  setwd('./Codes/Adm MS SIIIR Codes/')
  eval(parse('add_codes_ms_adm_v3.R', encoding = 'UTF-8'))

  
  
  
  code<-data.frame()
  for (year in years) {
    print(year)
    
    list<-add_codes_ms_adm(year)
    
    code_temp<-list[[2]]
    code<-rbind(code,code_temp)
  }

  setwd(wd_data_intermediate)
  saveRDS(code,"siiir_codes_ms_adm.rds")
  
}